;;;; cl-ana is a Common Lisp data analysis library.
;;;; Copyright 2013-2015 Gary Hollis
;;;; 
;;;; This file is part of cl-ana.
;;;; 
;;;; cl-ana is free software: you can redistribute it and/or modify it
;;;; under the terms of the GNU General Public License as published by
;;;; the Free Software Foundation, either version 3 of the License, or
;;;; (at your option) any later version.
;;;; 
;;;; cl-ana is distributed in the hope that it will be useful, but
;;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;;; General Public License for more details.
;;;; 
;;;; You should have received a copy of the GNU General Public License
;;;; along with cl-ana.  If not, see <http://www.gnu.org/licenses/>.
;;;;
;;;; You may contact Gary Hollis (me!) via email at
;;;; ghollisjr@gmail.com

(in-package :cl-ana.makeres)

(defmethod printable ((f function))
  nil)

(define-save-target-method function id
    (functionp (target-val (or (gethash id (target-table))
                               (gethash id
                                        (gethash *project-id*
                                                 *fin-target-tables*)))))
  nil)

(defmethod save-object ((fn function) path)
  (format t "Warning: cannot save functions~%")
  nil)

(defmethod load-object ((fn (eql 'function)) path)
  (format t "Warning: cannot load functions~%")
  nil)
